From: Leo Liu Date: Thu, 16 Feb 2012 14:33:58 +0000 (+0800) Subject: Use add-to-list instead of push in gnus-1 X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~740 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b8ce11667d9fdd955e7fce431dec65d005ad5485;p=emacs.git Use add-to-list instead of push in gnus-1 to avoid duplicate entries. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7ff8974d084..11bc8d05630 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2012-02-16 Leo Liu + + * gnus-start.el (gnus-1): Avoid duplicate entries. + 2012-02-15 Lars Ingebrigtsen * shr.el (shr-remove-trailing-whitespace): Really delete the padding on diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 9b1d5681e6c..bb7dd76d590 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -763,8 +763,8 @@ prompt the user for the name of an NNTP server to use." ;; Add "native" to gnus-predefined-server-alist just to have a ;; name for the native select method. (when gnus-select-method - (push (cons "native" gnus-select-method) - gnus-predefined-server-alist)) + (add-to-list 'gnus-predefined-server-alist + (cons "native" gnus-select-method))) (if gnus-agent (gnus-agentize))